home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf / piarc.lzh.parta / imtf.rexx < prev    next >
OS/2 REXX Batch file  |  1994-03-17  |  493b  |  20 lines
  1. /* Rexx */
  2. /*
  3.  * open rexxsupport.library -- needed for some functions
  4.  */
  5. if ~show('L',"rexxsupport.library") then do
  6.   if addlib('rexxsupport.library',0,-30,0) then do
  7.       /* everything's ok */
  8.     end;
  9.   else do
  10.     say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
  11.     say 'Cannot operate RESOLVER.rexx without this library - sorry!';
  12.     exit 10;
  13.     end;
  14.   end;
  15.  
  16. portlist = show('p');
  17. if index(portlist,'IM_Port') = 0 then exit 0;
  18. address 'IM_Port';
  19. 'forcefront';
  20.